package Error::Hierarchy::Internal::DBI::H;

# $Id: H.pm 10101 2005-08-09 16:13:58Z gr $

use warnings;
use strict;
use base 'Error::Hierarchy::Internal::DBI';


our $VERSION = '0.05';


# DBI exceptions store extra values, but don't use them in the message string.
# They are marked as properties, however, so generic exception handling code
# can introspect them.

__PACKAGE__->mk_accessors(qw(
    warn active kids active_kids compat_mode inactive_destroy
    trace_level fetch_hash_key_name chop_blanks long_read_len
    long_trunc_ok taint
));

use constant PROPERTIES => (
    qw(warn active kids active_kids compat_mode inactive_destroy trace_level
       fetch_hash_key_name chop_blanks long_read_len long_trunc_ok
       taint)
);

1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

Error::Hierarchy::Internal::DBI::H - DBI-related exception

=head1 SYNOPSIS

None.

=head1 DESCRIPTION

This class is part of the DBI-related exceptions. It is internal and you're
not supposed to use it.

=head1 PROPERTIES

This exception class inherits all properties of
L<Error::Hierarchy::Internal::DBI>.

It has the following additional properties.

=over 4

=item warn

=item active

=item kids

=item active_kids

=item compat_mode

=item inactive_destroy

=item trace_level

=item fetch_hash_key_name

=item chop_blanks

=item long_read_len

=item long_trunc_ok taint

=back

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% p.write_inheritance %}

{% PROCESS standard_pod %}

=cut

